Public Class Advia60
    Public Function Xu_Ly(ByVal str As String) As String()
        Try
            Dim strArray() As String
            Dim str1() As String
            Dim k As Int16 = 0
            str1 = Split(str, str.Chars(0))
            strArray = Split(str1(1), str1(1).Chars(5))

            'strArray = Split(str, vbLf)
            Return strArray
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "ADVIA60")
        End Try
    End Function
End Class